home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / listtogrp.aem < prev    next >
Text File  |  1999-03-07  |  2KB  |  73 lines
  1. /* AEMail Add Name from list to Address Book Group */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. GETFILENAME "'Enter File of Email Addresses'"
  8.  
  9. filenm = RESULT
  10.  
  11. IF (OPEN('listfile', filenm, 'R') = 0) THEN DO
  12.     OKAY1 "Invalid File; Aborting ..."
  13.     EXIT
  14.     END
  15.  
  16. ADDTOAB = 1
  17. IF (ADDTOAB = 1) THEN DO
  18.     OK = 0
  19.     DO UNTIL OK = 1
  20.         ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  21.         grplist = RESULT
  22.         GETLISTITEM "'"grplist"' 'Select the Group Wanted'"
  23.         grpname = RESULT
  24.         IF (grpname = "") THEN DO
  25.             GETSTRING '"Enter a Group Nickname"'
  26.             grpname = RESULT
  27.             END
  28.         IF (grpname = "") THEN EXIT
  29.         PARSE VAR grpname grpname dflt
  30.         dflt = STRIP(dflt, 'L')
  31.         ADDRESS_BOOK GET grpname TYPE
  32.         addrtype = RESULT
  33.         IF (addrtype = -1) THEN DO
  34.             OKAY2 '"Create It|Enter New Name|Cancel"' "Group Nickname Does Not Exist"
  35.             IF (RESULT = 1) THEN DO
  36.                 GETSTRING '"Enter a Group Description"' "'"dflt"'"
  37.                 grpdesc = RESULT
  38.                 OK = 1
  39.                 OKAY2 "YES|NO" "Do you want to send header only?"
  40.                 IF (RESULT = 0) THEN sndho = ""
  41.                 ELSE sndho = "SHO"
  42.                 END
  43.             ELSE IF (RESULT = 2) THEN OK = 0
  44.             ELSE IF (RESULT = 0) THEN exit
  45.             END
  46.         IF (addrtype = 0) THEN DO
  47.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  48.             IF (RESULT = 1) THEN OK = 0
  49.             IF (RESULT = 0) THEN exit
  50.             END
  51.         IF (addrtype = 1) THEN OK = 1
  52.         END
  53.     END
  54.  
  55. DO UNTIL EOF('listfile')
  56.  
  57.     emailaddr=READLN('listfile')
  58.  
  59.     IF (EOF('listfile')) THEN LEAVE
  60.  
  61.     IF (ADDTOAB = 1) THEN DO
  62.         IF (addrtype = -1) THEN DO
  63.             cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho "'"emailaddr"'" grpdesc
  64.             addrtype = 1
  65.             END
  66.         ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname "'"emailaddr"'"
  67.         cmd
  68.         END
  69.     END
  70.  
  71.  
  72. OKAY1 "Last Email Address Added"
  73.